10 IFA=0THENA=1:LOAD"PLOTTER",8,1 20 SYS20480 30 INPUT"ECHO-MODUS ? J[157][157][157]";E$:PRINT 40 OPEN12,12 50 PRINT#12,"E";-E$="J 60 [152]12,"L1 70 PRINT#12,"F0,0,479,566 80 [152]12,"M126,3 90 PRINT#12,"S2 100 [152]12,"Z1 105 PRINT#12,"L0 110 [152]12,"PPLOTTER 120 PRINT#12,"Z0 130 [152]12,"S0 135 PRINT#12,"R2,-1 140 [152]12,"PSIMULATOR V1 DEMO 150 PRINT#12,"M254,11 160 [152]12,"PNIKOLAUS HEUSLER 170 PRINT#12,"M254,20 180 [152]12,"P(C) NH-040990-ARR 190 PRINT#12,"M0,29 195 [152]12,"L1 200 PRINT#12,"I479,0 210 [152]12,"M2,31 215 PRINT#12,"L0 220 [152]12,"PSCHRIFT IN VER- 230 PRINT#12,"Q3 240 [152]12,"P SCHIE- 250 PRINT#12,"Q2 260 [152]12,"P DENEN RICH- 270 PRINT#12,"Q1 280 [152]12,"P TUN- 290 PRINT#12,"Q0 295 [152]12,"P GEN UND... 300 PRINT#12,"R36,-11 310 [152]12,"PG 320 PRINT#12,"S1 330 [152]12,"PR 340 PRINT#12,"S2 350 [152]12,"PO 360 PRINT#12,"S3 370 [152]12,"PE 380 PRINT#12,"S4 390 [152]12,"PS 400 PRINT#12,"S5 410 [152]12,"PS 420 PRINT#12,"S6 430 [152]12,"PE 440 PRINT#12,"S7 450 [152]12,"PN 460 PRINT#12,"S0 462 [152]12,"R0,50 464 PRINT#12,"PAUF WUNSCH[160] 466 [152]12,"Z1 468 PRINT#12,"PAUCH FETT! 470 [152]12,"M0,93 480 PRINT#12,"L1 490 [152]12,"Z0 500 PRINT#12,"I479,0 510 [152]12,"L0 520 PRINT#12,"M2,98 530 [152]12,"PLINIENTYPEN: 540 PRINT#12,"R100,0 550 [152]12,"PPUNKTTYPEN: 560 PRINT#12,"R122,0 570 [152]12,"PMARKEN UND ZEICHEN: 580 PRINT#12,"M10,110 590 [152]12,"PDURCHGEZOGEN: " 595 [152]12,"R0,3 600 PRINT#12,"I40,0 610 [152]12,"M10,119 620 PRINT#12,"PGESTRICHELT: " 630 PRINT#12,"L1 640 [152]12,"B4 645 PRINT#12,"R0,3 650 [152]12,"I40,0 660 PRINT#12,"B1 670 [152]12,"L0 680 PRINT#12,"M10,128 690 [152]12,"PPUNKTIERT: " 700 [152]12,"L2 705 PRINT#12,"R0,3 710 [152]12,"I40,0 720 PRINT#12,"L0 730 [152]12,"M10,137 / 740 PRINT#12,"PDOPP. PUNKT.: " 750 PRINT#12,"L3 760 [152]12,"R0,3 770 PRINT#12,"I40,0 780 [152]12,"L0 790 PRINT#12,"Z1 800 [152]12,"M246,111 805 FORI=1TO5 810 PRINT#12,"I0,30 820 [152]12,"R3,0 830 PRINT#12,"I0,-30 840 [152]12,"R3,0 850 NEXT 900 PRINT#12,"M192,118 910 [152]12,"Z0 920 PRINT#12,"PSET : 930 [152]12,"Z1 940 PRINT#12,"R12,3 950 [152]12,"I40,0 960 PRINT#12,"M192,127 970 [152]12,"Z0 980 PRINT#12,"PRESET: 990 [152]12,"Z1 1000 PRINT#12,"A1 1010 [152]12,"R12,3 1020 PRINT#12,"I40,0 1030 [152]12,"A0 1040 PRINT#12,"Z0 1050 [152]12,"L1 1060 PRINT#12,"M0,158 1070 [152]12,"I479,0 1080 PRINT#12,"M149,93 1090 [152]12,"I0,64 1100 PRINT#12,"M287,93 1110 [152]12,"I0,64 1120 PRINT#12,"M295,114 1130 [152]12,"S1 1135 PRINT#12,"L0 1140 [129]I[178]1[164]6 1150 [152]12,"N"I 1160 [152]12,"R14,0 1170 NEXT 1175 PRINT#12,"P# $ ? 1180 [152]12,"M295,130 1190 PRINT#12,"P@ * ^ & % * \ Q 1200 [152]12,"L1 1210 PRINT#12,"M345,50 1220 [152]12,"PEFFEKTE 1230 PRINT#12,"S0 1235 [152]12,"L0 1240 PRINT#12,"M2,162 1250 [152]12,"PEXAKTE MASSEINHEITEN: 1260 PRINT#12,"M2,171 1270 [152]12,"PDIESE LINIE IST GENAU 10 CM LANG... 1280 PRINT#12,"M218,173 1290 [152]12,"K1 1300 PRINT#12,"I100,0 1310 [152]12,"K0 1320 PRINT#12,"L1 1330 [152]12,"M0,180 1340 PRINT#12,"I479,0 1350 [152]12,"L0 1360 PRINT#12,"M2,182 1370 [152]12,"PFIGUREN UND GEBILDE: STRAHLEN UND RECHTECKE 1380 PRINT#12,"M138,280 1390 [152]12,"U1 1400 FORI=0TO1.999*(null)STEP(null)/10 1410 PRINT#12,"I"69*SIN(I)","84*COS(I) 1420 NEXT 1425 PRINT#12,"U0 1430 [129]I[178]1[164]7 1440 [152]12,"F"230[170]I[172]23","180[170]I[172]22","230[170]I[172]23[170](8[171]I)[172]20","180[170]I[172]22[170](8[171]I)[172]20 1450 [130] 1460 [152]12,"L1 1470 PRINT#12,"M0,370 1480 [152]12,"I479,0 1490 PRINT#12,"L0 1500 [152]12,"M2,372 1510 PRINT#12,"PHIDDEN-LINE MIT DEM MIN/MAX-MODUS! 1520 [152]12,"#1 1530 FORX=0TO2*(null)STEP(null)/20 1535 KX=0:KZ=KZ+2 1540 FORY=0TO2*(null)STEP(null)/90 1550 KX=KX+1 1560 KY=560-ABS(SIN(Y))*ABS(SIN(X))*98-KZ 1570 IFKX=1THENPRINT#12,"."KZ+92+KX","KY 1580 PRINT#12,"D"KZ+92+KX","KY 1590 NEXTY,X 1600 PRINT#12,"#0 1610 [152]12,"O 1620 CLOSE12